home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-12-06 | 5.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 46 72 | 61 63 74 69 6f 6e b2 0d |..... Fr|action..|
|00000010| 00 14 05 f4 0d 00 1e 23 | f4 20 42 79 20 53 65 61 |.......#|. By Sea|
|00000020| 6e 20 43 72 65 65 63 68 | 20 61 6e 64 20 54 69 6d |n Creech| and Tim|
|00000030| 20 57 69 73 65 72 2e 0d | 00 28 05 f4 0d 00 32 14 | Wiser..|.(....2.|
|00000040| f4 20 50 75 62 6c 69 63 | 20 44 6f 6d 61 69 6e 2e |. Public| Domain.|
|00000050| 0d 00 3c 05 f4 0d 00 46 | 04 0d 00 50 33 20 20 20 |..<....F|...P3 |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000070| 20 20 20 20 20 20 20 20 | c8 9b 20 22 3c 4f 62 65 | |.. "<Obe|
|00000080| 79 24 44 69 72 3e 2e 57 | 69 6d 70 22 0d 00 5a 42 |y$Dir>.W|imp"..ZB|
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 f2 57 69 6d 70 | | .Wimp|
|000000b0| 5f 53 74 61 72 74 28 22 | 46 72 61 63 74 69 6f 6e |_Start("|Fraction|
|000000c0| 20 32 22 2c 31 33 38 32 | 2c 31 30 39 37 29 0d 00 | 2",1382|,1097)..|
|000000d0| 64 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d3 | |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 55 73 | | .Us|
|000000f0| 65 72 5f 53 65 74 49 6e | 69 74 69 61 6c 44 61 74 |er_SetIn|itialDat|
|00000100| 61 0d 00 6e 2e 20 20 20 | 20 20 20 20 20 20 20 20 |a..n. | |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000120| f2 43 72 65 61 74 65 5f | 57 69 6e 64 6f 77 73 0d |.Create_|Windows.|
|00000130| 00 78 2c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.x, | |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 43 | | .C|
|00000150| 72 65 61 74 65 5f 4d 65 | 6e 75 73 0d 00 82 31 20 |reate_Me|nus...1 |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 f2 57 69 6d 70 5f | | .Wimp_|
|00000180| 57 61 69 74 46 6f 72 45 | 76 65 6e 74 0d 00 8c 2e |WaitForE|vent....|
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 f2 57 69 6d 70 | | .Wimp|
|000001b0| 5f 43 6c 6f 73 65 44 6f | 77 6e 0d 00 96 20 20 20 |_CloseDo|wn... |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001d0| 20 20 20 20 20 20 20 20 | 20 e0 0d 00 a0 0c 20 20 | | ..... |
|000001e0| 20 20 20 20 20 3a 0d 00 | aa 21 20 20 20 20 20 20 | :..|.! |
|000001f0| 20 dd 20 f2 55 73 65 72 | 5f 53 65 74 49 6e 69 74 | . .User|_SetInit|
|00000200| 69 61 6c 44 61 74 61 0d | 00 b4 17 20 20 20 20 20 |ialData.|... |
|00000210| 20 20 69 6e 74 65 72 66 | 61 63 65 25 3d b9 0d 00 | interf|ace%=...|
|00000220| be 0c 20 20 20 20 20 20 | 20 e1 0d 00 c8 0c 20 20 |.. | ..... |
|00000230| 20 20 20 20 20 3a 0d 00 | d2 1c 20 20 20 20 20 20 | :..|.. |
|00000240| 20 dd 20 f2 43 72 65 61 | 74 65 5f 57 69 6e 64 6f | . .Crea|te_Windo|
|00000250| 77 73 0d 00 dc 3e 20 20 | 20 20 20 20 20 20 20 20 |ws...> | |
|00000260| 20 20 20 20 20 69 6e 66 | 6f 62 6f 78 5f 57 69 6e | inf|obox_Win|
|00000270| 64 6f 77 25 3d a4 57 69 | 6d 70 5f 57 69 6e 64 6f |dow%=.Wi|mp_Windo|
|00000280| 77 4c 6f 61 64 28 22 69 | 6e 66 6f 62 6f 78 22 29 |wLoad("i|nfobox")|
|00000290| 0d 00 e6 3f 20 20 20 20 | 20 20 20 20 20 20 20 20 |...? | |
|000002a0| 20 20 46 72 61 63 74 69 | 6f 6e 5f 57 69 6e 64 6f | Fracti|on_Windo|
|000002b0| 77 25 3d a4 57 69 6d 70 | 5f 57 69 6e 64 6f 77 4c |w%=.Wimp|_WindowL|
|000002c0| 6f 61 64 28 22 46 72 61 | 63 74 69 6f 6e 22 29 0d |oad("Fra|ction").|
|000002d0| 00 f0 3d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..= | |
|000002e0| 20 20 20 73 61 76 65 61 | 73 5f 57 69 6e 64 6f 77 | savea|s_Window|
|000002f0| 25 3d a4 57 69 6d 70 5f | 57 69 6e 64 6f 77 4c 6f |%=.Wimp_|WindowLo|
|00000300| 61 64 28 22 73 61 76 65 | 61 73 22 29 0d 00 fa 30 |ad("save|as")...0|
|00000310| 20 20 20 20 20 20 20 42 | 61 72 5f 49 63 6f 6e 25 | B|ar_Icon%|
|00000320| 3d a4 57 69 6d 70 5f 49 | 63 6f 6e 42 61 72 28 22 |=.Wimp_I|conBar("|
|00000330| 21 46 72 61 63 74 69 6f | 6e b2 22 29 0d 01 04 0c |!Fractio|n.")....|
|00000340| 20 20 20 20 20 20 20 e1 | 0d 01 0e 0d 20 20 20 20 | .|.... |
|00000350| 20 20 20 20 3a 0d 01 18 | 22 20 20 20 20 20 20 20 | :...|" |
|00000360| 20 dd 20 a4 45 76 65 6e | 74 5f 53 61 76 65 28 77 | . .Even|t_Save(w|
|00000370| 69 6e 64 6f 77 25 29 0d | 01 22 1a 20 20 20 20 20 |indow%).|.". |
|00000380| 20 20 20 20 20 c8 8e 20 | 77 69 6e 64 6f 77 25 20 | .. |window% |
|00000390| ca 0d 01 2c 24 20 20 20 | 20 20 20 20 20 20 20 20 |...,$ | |
|000003a0| 20 c9 20 73 61 76 65 61 | 73 5f 57 69 6e 64 6f 77 | . savea|s_Window|
|000003b0| 25 20 3a 3d b9 0d 01 36 | 15 20 20 20 20 20 20 20 |% :=...6|. |
|000003c0| 20 20 20 20 20 7f 20 3a | 3d a3 0d 01 40 0f 20 20 | . :|=...@. |
|000003d0| 20 20 20 20 20 20 20 20 | cb 0d 01 4a 0d 20 20 20 | |...J. |
|000003e0| 20 20 20 20 20 3a 0d 01 | 54 2e 20 20 20 20 20 20 | :..|T. |
|000003f0| 20 20 dd 20 a4 45 76 65 | 6e 74 5f 53 70 72 69 74 | . .Eve|nt_Sprit|
|00000400| 65 73 28 77 69 6e 64 6f | 77 25 29 3d 73 70 72 69 |es(windo|w%)=spri|
|00000410| 74 65 73 25 0d 01 5e 0c | 20 20 20 20 20 20 20 3a |tes%..^.| :|
|00000420| 0d 01 68 1a 20 20 20 20 | 20 20 20 dd 20 f2 43 72 |..h. | . .Cr|
|00000430| 65 61 74 65 5f 4d 65 6e | 75 73 0d 01 72 4f 20 20 |eate_Men|us..rO |
|00000440| 20 20 20 20 20 20 20 42 | 61 72 5f 4d 65 6e 75 25 | B|ar_Menu%|
|00000450| 3d a4 57 69 6d 70 5f 4d | 65 6e 75 43 72 65 61 74 |=.Wimp_M|enuCreat|
|00000460| 65 28 22 46 72 61 63 74 | 69 6f 6e 20 32 5c 49 6e |e("Fract|ion 2\In|
|00000470| 66 6f 3e 69 6e 66 6f 62 | 6f 78 5f 57 69 6e 64 6f |fo>infob|ox_Windo|
|00000480| 77 25 5c 51 75 69 74 22 | 29 0d 01 7c 68 20 20 20 |w%\Quit"|)..|h |
|00000490| 20 20 20 20 20 20 46 72 | 61 63 74 69 6f 6e 5f 4d | Fr|action_M|
|000004a0| 65 6e 75 25 3d a4 57 69 | 6d 70 5f 4d 65 6e 75 43 |enu%=.Wi|mp_MenuC|
|000004b0| 72 65 61 74 65 28 22 46 | 72 61 63 74 69 6f 6e 20 |reate("F|raction |
|000004c0| 32 5c 49 6e 66 6f 3e 69 | 6e 66 6f 62 6f 78 5f 57 |2\Info>i|nfobox_W|
|000004d0| 69 6e 64 6f 77 25 5c 53 | 61 76 65 3e 73 61 76 65 |indow%\S|ave>save|
|000004e0| 61 73 5f 57 69 6e 64 6f | 77 25 5c 51 75 69 74 22 |as_Windo|w%\Quit"|
|000004f0| 29 0d 01 86 0c 20 20 20 | 20 20 20 20 e1 0d 01 90 |).... | ....|
|00000500| 0d 20 20 20 20 20 20 20 | 20 3a 0d 01 9a 22 20 20 |. | :..." |
|00000510| 20 20 20 20 20 20 dd 20 | a4 45 76 65 6e 74 5f 4d | . |.Event_M|
|00000520| 65 6e 75 28 77 69 6e 64 | 6f 77 25 29 0d 01 a4 18 |enu(wind|ow%)....|
|00000530| 20 20 20 20 20 20 20 20 | c8 8e 20 77 69 6e 64 6f | |.. windo|
|00000540| 77 25 20 ca 0d 01 ae 2e | 20 20 20 20 20 20 20 20 |w% .....| |
|00000550| 20 c9 20 42 61 72 5f 57 | 69 6e 64 6f 77 25 20 20 | . Bar_W|indow% |
|00000560| 20 20 20 20 20 20 3a 20 | 3d 42 61 72 5f 4d 65 6e | : |=Bar_Men|
|00000570| 75 25 0d 01 b8 33 20 20 | 20 20 20 20 20 20 20 c9 |u%...3 | .|
|00000580| 20 46 72 61 63 74 69 6f | 6e 5f 57 69 6e 64 6f 77 | Fractio|n_Window|
|00000590| 25 20 20 20 3a 20 3d 46 | 72 61 63 74 69 6f 6e 5f |% : =F|raction_|
|000005a0| 4d 65 6e 75 25 0d 01 c2 | 21 20 20 20 20 20 20 20 |Menu%...|! |
|000005b0| 20 20 7f 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|000005c0| 20 20 3a 20 3d a3 0d 01 | cc 0d 20 20 20 20 20 20 | : =...|.. |
|000005d0| 20 20 cb 0d 01 d6 0c 20 | 20 20 20 20 20 20 3a 0d | ..... | :.|
|000005e0| 01 e0 31 20 20 20 20 20 | 20 20 dd 20 f2 45 76 65 |..1 | . .Eve|
|000005f0| 6e 74 5f 57 69 6e 64 6f | 77 43 6c 6f 73 65 28 77 |nt_Windo|wClose(w|
|00000600| 69 6e 64 6f 77 25 2c 62 | 75 74 74 6f 6e 73 25 29 |indow%,b|uttons%)|
|00000610| 0d 01 ea 17 20 20 20 20 | 20 20 20 c8 8e 20 77 69 |.... | .. wi|
|00000620| 6e 64 6f 77 25 20 ca 0d | 01 f4 0c 20 20 20 20 20 |ndow% ..|... |
|00000630| 20 20 cb 0d 01 fe 0c 20 | 20 20 20 20 20 20 e1 0d | ..... | ..|
|00000640| 02 08 0c 20 20 20 20 20 | 20 20 3a 0d 02 12 35 20 |... | :...5 |
|00000650| 20 20 20 20 20 20 dd 20 | f2 45 76 65 6e 74 5f 44 | . |.Event_D|
|00000660| 72 61 77 28 77 69 6e 64 | 6f 77 25 2c 78 5f 6f 72 |raw(wind|ow%,x_or|
|00000670| 69 67 69 6e 25 2c 79 5f | 6f 72 69 67 69 6e 25 29 |igin%,y_|origin%)|
|00000680| 0d 02 1c 17 20 20 20 20 | 20 20 20 c8 8e 20 77 69 |.... | .. wi|
|00000690| 6e 64 6f 77 25 20 ca 0d | 02 26 3b 20 20 20 20 20 |ndow% ..|.&; |
|000006a0| 20 20 20 c9 20 69 6e 66 | 6f 62 6f 78 5f 57 69 6e | . inf|obox_Win|
|000006b0| 64 6f 77 25 20 20 20 20 | 20 3a 20 f2 55 73 65 72 |dow% | : .User|
|000006c0| 5f 44 72 61 77 69 6e 66 | 6f 62 6f 78 57 69 6e 64 |_Drawinf|oboxWind|
|000006d0| 6f 77 0d 02 30 3c 20 20 | 20 20 20 20 20 20 c9 20 |ow..0< | . |
|000006e0| 46 72 61 63 74 69 6f 6e | 5f 57 69 6e 64 6f 77 25 |Fraction|_Window%|
|000006f0| 20 20 20 20 3a 20 f2 55 | 73 65 72 5f 44 72 61 77 | : .U|ser_Draw|
|00000700| 46 72 61 63 74 69 6f 6e | 57 69 6e 64 6f 77 0d 02 |Fraction|Window..|
|00000710| 3a 3a 20 20 20 20 20 20 | 20 20 c9 20 73 61 76 65 |:: | . save|
|00000720| 61 73 5f 57 69 6e 64 6f | 77 25 20 20 20 20 20 20 |as_Windo|w% |
|00000730| 3a 20 f2 55 73 65 72 5f | 44 72 61 77 73 61 76 65 |: .User_|Drawsave|
|00000740| 61 73 57 69 6e 64 6f 77 | 0d 02 44 0c 20 20 20 20 |asWindow|..D. |
|00000750| 20 20 20 cb 0d 02 4e 0c | 20 20 20 20 20 20 20 e1 | ...N.| .|
|00000760| 0d 02 58 12 20 20 20 20 | 20 20 20 20 20 20 20 20 |..X. | |
|00000770| 20 3a 0d 02 62 2a 20 20 | 20 20 20 20 20 20 20 20 | :..b* | |
|00000780| 20 20 20 dd 20 f2 55 73 | 65 72 5f 44 72 61 77 69 | . .Us|er_Drawi|
|00000790| 6e 66 6f 62 6f 78 57 69 | 6e 64 6f 77 0d 02 6c 12 |nfoboxWi|ndow..l.|
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 e1 0d 02 | | ...|
|000007b0| 76 12 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |v. | :|
|000007c0| 0d 02 80 2b 20 20 20 20 | 20 20 20 20 20 20 20 20 |...+ | |
|000007d0| 20 dd 20 f2 55 73 65 72 | 5f 44 72 61 77 46 72 61 | . .User|_DrawFra|
|000007e0| 63 74 69 6f 6e 57 69 6e | 64 6f 77 0d 02 8a 12 20 |ctionWin|dow.... |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 e1 0d 02 94 | | ....|
|00000800| 12 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 0d |. | :.|
|00000810| 02 9e 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..) | |
|00000820| dd 20 f2 55 73 65 72 5f | 44 72 61 77 73 61 76 65 |. .User_|Drawsave|
|00000830| 61 73 57 69 6e 64 6f 77 | 0d 02 a8 12 20 20 20 20 |asWindow|.... |
|00000840| 20 20 20 20 20 20 20 20 | 20 e1 0d 02 b2 0c 20 20 | | ..... |
|00000850| 20 20 20 20 20 3a 0d 02 | bc 3b 20 20 20 20 20 20 | :..|.; |
|00000860| 20 dd 20 f2 45 76 65 6e | 74 5f 4d 6f 75 73 65 43 | . .Even|t_MouseC|
|00000870| 6c 69 63 6b 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |lick(win|dow%,ico|
|00000880| 6e 25 2c 62 75 74 74 6f | 6e 25 2c 78 25 2c 79 25 |n%,butto|n%,x%,y%|
|00000890| 29 0d 02 c6 17 20 20 20 | 20 20 20 20 c8 8e 20 77 |).... | .. w|
|000008a0| 69 6e 64 6f 77 25 20 ca | 0d 02 d0 31 20 20 20 20 |indow% .|...1 |
|000008b0| 20 20 20 20 c9 20 42 61 | 72 5f 57 69 6e 64 6f 77 | . Ba|r_Window|
|000008c0| 25 20 20 20 20 20 20 20 | 20 3a 20 f2 55 73 65 72 |% | : .User|
|000008d0| 5f 4d 6f 75 73 65 42 61 | 72 0d 02 da 45 20 20 20 |_MouseBa|r...E |
|000008e0| 20 20 20 20 20 c9 20 69 | 6e 66 6f 62 6f 78 5f 57 | . i|nfobox_W|
|000008f0| 69 6e 64 6f 77 25 20 20 | 20 20 3a 20 f2 55 73 65 |indow% | : .Use|
|00000900| 72 5f 4d 6f 75 73 65 69 | 6e 66 6f 62 6f 78 28 20 |r_Mousei|nfobox( |
|00000910| 62 75 74 74 6f 6e 25 2c | 69 63 6f 6e 25 29 0d 02 |button%,|icon%)..|
|00000920| e4 46 20 20 20 20 20 20 | 20 20 c9 20 46 72 61 63 |.F | . Frac|
|00000930| 74 69 6f 6e 5f 57 69 6e | 64 6f 77 25 20 20 20 3a |tion_Win|dow% :|
|00000940| 20 f2 55 73 65 72 5f 4d | 6f 75 73 65 46 72 61 63 | .User_M|ouseFrac|
|00000950| 74 69 6f 6e 28 20 62 75 | 74 74 6f 6e 25 2c 69 63 |tion( bu|tton%,ic|
|00000960| 6f 6e 25 29 0d 02 ee 0c | 20 20 20 20 20 20 20 cb |on%)....| .|
|00000970| 0d 02 f8 0c 20 20 20 20 | 20 20 20 e1 0d 03 02 0e |.... | .....|
|00000980| 20 20 20 20 20 20 20 20 | 20 3a 0d 03 0c 1d 20 20 | | :.... |
|00000990| 20 20 20 20 20 20 20 dd | 20 f2 55 73 65 72 5f 4d | .| .User_M|
|000009a0| 6f 75 73 65 42 61 72 0d | 03 16 30 20 20 20 20 20 |ouseBar.|..0 |
|000009b0| 20 20 20 20 20 f2 57 69 | 6d 70 5f 57 69 6e 64 6f | .Wi|mp_Windo|
|000009c0| 77 4f 70 65 6e 28 46 72 | 61 63 74 69 6f 6e 5f 57 |wOpen(Fr|action_W|
|000009d0| 69 6e 64 6f 77 25 29 0d | 03 20 0e 20 20 20 20 20 |indow%).|. . |
|000009e0| 20 20 20 20 e1 0d 03 2a | 0e 20 20 20 20 20 20 20 | ...*|. |
|000009f0| 20 20 3a 0d 03 34 31 20 | 20 20 20 20 20 20 20 20 | :..41 | |
|00000a00| dd 20 f2 55 73 65 72 5f | 4d 6f 75 73 65 69 6e 66 |. .User_|Mouseinf|
|00000a10| 6f 62 6f 78 28 20 62 75 | 74 74 6f 6e 25 2c 69 63 |obox( bu|tton%,ic|
|00000a20| 6f 6e 25 29 0d 03 3e 80 | 20 20 20 20 20 20 20 20 |on%)..>.| |
|00000a30| 20 20 e7 20 69 63 6f 6e | 25 3d 35 20 f2 57 69 6d | . icon|%=5 .Wim|
|00000a40| 70 5f 57 69 6e 64 6f 77 | 41 6c 65 72 74 28 22 4d |p_Window|Alert("M|
|00000a50| 65 73 73 61 67 65 20 66 | 72 6f 6d 20 21 46 72 61 |essage f|rom !Fra|
|00000a60| 63 74 69 6f 6e b2 22 2c | 22 4f 72 69 67 69 6e 61 |ction.",|"Origina|
|00000a70| 6c 20 63 6f 64 65 20 62 | 79 20 53 65 61 6e 20 43 |l code b|y Sean C|
|00000a80| 72 65 65 63 68 2c 20 52 | 69 73 63 4f 53 20 63 6f |reech, R|iscOS co|
|00000a90| 64 69 6e 67 20 62 79 20 | 54 69 6d 20 57 69 73 65 |ding by |Tim Wise|
|00000aa0| 72 2e 22 29 0d 03 48 0e | 20 20 20 20 20 20 20 20 |r.")..H.| |
|00000ab0| 20 e1 0d 03 52 0e 20 20 | 20 20 20 20 20 20 20 3a | ...R. | :|
|00000ac0| 0d 03 5c 32 20 20 20 20 | 20 20 20 20 20 dd 20 f2 |..\2 | . .|
|00000ad0| 55 73 65 72 5f 4d 6f 75 | 73 65 46 72 61 63 74 69 |User_Mou|seFracti|
|00000ae0| 6f 6e 28 20 62 75 74 74 | 6f 6e 25 2c 69 63 6f 6e |on( butt|on%,icon|
|00000af0| 25 29 0d 03 66 24 20 20 | 20 20 20 20 20 20 20 20 |%)..f$ | |
|00000b00| e7 20 69 63 6f 6e 25 3d | 36 20 8c 20 f2 63 61 6c |. icon%=|6 . .cal|
|00000b10| 63 75 6c 61 74 65 0d 03 | 70 0c 20 20 20 20 20 20 |culate..|p. |
|00000b20| 20 e1 0d 03 7a 0c 20 20 | 20 20 20 20 20 3a 0d 03 | ...z. | :..|
|00000b30| 84 30 20 20 20 20 20 20 | 20 dd 20 f2 45 76 65 6e |.0 | . .Even|
|00000b40| 74 5f 4b 65 79 50 72 65 | 73 73 28 77 69 6e 64 6f |t_KeyPre|ss(windo|
|00000b50| 77 25 2c 69 63 6f 6e 25 | 2c 6b 65 79 25 29 0d 03 |w%,icon%|,key%)..|
|00000b60| 8e 1a 20 20 20 20 20 20 | 20 20 20 20 c8 8e 20 77 |.. | .. w|
|00000b70| 69 6e 64 6f 77 25 20 ca | 0d 03 98 49 20 20 20 20 |indow% .|...I |
|00000b80| 20 20 20 20 20 20 20 c9 | 20 46 72 61 63 74 69 6f | .| Fractio|
|00000b90| 6e 5f 57 69 6e 64 6f 77 | 25 20 20 20 3a 20 f2 55 |n_Window|% : .U|
|00000ba0| 73 65 72 5f 4b 65 79 50 | 72 65 73 73 46 72 61 63 |ser_KeyP|ressFrac|
|00000bb0| 74 69 6f 6e 28 20 69 63 | 6f 6e 25 2c 6b 65 79 25 |tion( ic|on%,key%|
|00000bc0| 29 0d 03 a2 0f 20 20 20 | 20 20 20 20 20 20 20 cb |).... | .|
|00000bd0| 0d 03 ac 0c 20 20 20 20 | 20 20 20 e1 0d 03 b6 0e |.... | .....|
|00000be0| 20 20 20 20 20 20 20 20 | 20 3a 0d 03 c0 32 20 20 | | :...2 |
|00000bf0| 20 20 20 20 20 20 20 dd | 20 f2 55 73 65 72 5f 4b | .| .User_K|
|00000c00| 65 79 50 72 65 73 73 46 | 72 61 63 74 69 6f 6e 28 |eyPressF|raction(|
|00000c10| 20 69 63 6f 6e 25 2c 6b | 65 79 25 29 0d 03 ca 2e | icon%,k|ey%)....|
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 e7 20 69 63 6f 6e | | . icon|
|00000c30| 25 3d 33 20 80 20 6b 65 | 79 25 3d 31 33 20 8c 20 |%=3 . ke|y%=13 . |
|00000c40| f2 63 61 6c 63 75 6c 61 | 74 65 0d 03 d4 0c 20 20 |.calcula|te.... |
|00000c50| 20 20 20 20 20 e1 0d 03 | de 0c 20 20 20 20 20 20 | ...|.. |
|00000c60| 20 3a 0d 03 e8 25 20 20 | 20 20 20 20 20 dd 20 f2 | :...% | . .|
|00000c70| 45 76 65 6e 74 5f 4d 65 | 6e 75 43 68 6f 69 63 65 |Event_Me|nuChoice|
|00000c80| 28 6d 65 6e 75 25 29 0d | 03 f2 16 20 20 20 20 20 |(menu%).|... |
|00000c90| 20 20 20 c8 8e 20 6d 65 | 6e 75 25 20 ca 0d 03 fc | .. me|nu% ....|
|00000ca0| 3c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 c9 |< | .|
|00000cb0| 20 42 61 72 5f 4d 65 6e | 75 25 20 20 20 20 20 20 | Bar_Men|u% |
|00000cc0| 20 20 20 20 3a 20 f2 55 | 73 65 72 5f 4d 65 6e 75 | : .U|ser_Menu|
|00000cd0| 43 68 6f 69 63 65 42 61 | 72 0d 04 06 41 20 20 20 |ChoiceBa|r...A |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 c9 20 46 72 61 | | . Fra|
|00000cf0| 63 74 69 6f 6e 5f 4d 65 | 6e 75 25 20 20 20 20 20 |ction_Me|nu% |
|00000d00| 3a 20 f2 55 73 65 72 5f | 4d 65 6e 75 43 68 6f 69 |: .User_|MenuChoi|
|00000d10| 63 65 46 72 61 63 74 69 | 6f 6e 0d 04 10 0d 20 20 |ceFracti|on.... |
|00000d20| 20 20 20 20 20 20 cb 0d | 04 1a 0c 20 20 20 20 20 | ..|... |
|00000d30| 20 20 e1 0d 04 24 0c 20 | 20 20 20 20 20 20 3a 0d | ...$. | :.|
|00000d40| 04 2e 20 20 20 20 20 20 | 20 20 dd 20 f2 55 73 65 |.. | . .Use|
|00000d50| 72 5f 4d 65 6e 75 43 68 | 6f 69 63 65 42 61 72 0d |r_MenuCh|oiceBar.|
|00000d60| 04 38 24 20 20 20 20 20 | 20 20 20 c8 8e 20 a4 57 |.8$ | .. .W|
|00000d70| 69 6d 70 5f 4d 65 6e 75 | 43 68 6f 69 63 65 28 30 |imp_Menu|Choice(0|
|00000d80| 29 20 ca 0d 04 42 12 20 | 20 20 20 20 20 20 20 20 |) ...B. | |
|00000d90| c9 20 31 20 3a 0d 04 4c | 1d 20 20 20 20 20 20 20 |. 1 :..L|. |
|00000da0| 20 20 c9 20 32 20 3a 66 | 69 6e 69 73 68 65 64 25 | . 2 :f|inished%|
|00000db0| 3d b9 0d 04 56 0d 20 20 | 20 20 20 20 20 20 cb 0d |=...V. | ..|
|00000dc0| 04 60 0c 20 20 20 20 20 | 20 20 e1 0d 04 6a 0c 20 |.`. | ...j. |
|00000dd0| 20 20 20 20 20 20 3a 0d | 04 74 25 20 20 20 20 20 | :.|.t% |
|00000de0| 20 20 dd 20 f2 55 73 65 | 72 5f 4d 65 6e 75 43 68 | . .Use|r_MenuCh|
|00000df0| 6f 69 63 65 46 72 61 63 | 74 69 6f 6e 0d 04 7e 24 |oiceFrac|tion..~$|
|00000e00| 20 20 20 20 20 20 20 20 | c8 8e 20 a4 57 69 6d 70 | |.. .Wimp|
|00000e10| 5f 4d 65 6e 75 43 68 6f | 69 63 65 28 30 29 20 ca |_MenuCho|ice(0) .|
|00000e20| 0d 04 88 12 20 20 20 20 | 20 20 20 20 20 c9 20 31 |.... | . 1|
|00000e30| 20 3a 0d 04 92 12 20 20 | 20 20 20 20 20 20 20 c9 | :.... | .|
|00000e40| 20 32 20 3a 0d 04 9c 1d | 20 20 20 20 20 20 20 20 | 2 :....| |
|00000e50| 20 c9 20 33 20 3a 66 69 | 6e 69 73 68 65 64 25 3d | . 3 :fi|nished%=|
|00000e60| b9 0d 04 a6 0d 20 20 20 | 20 20 20 20 20 cb 0d 04 |..... | ...|
|00000e70| b0 0c 20 20 20 20 20 20 | 20 e1 0d 04 ba 0c 20 20 |.. | ..... |
|00000e80| 20 20 20 20 20 3a 0d 04 | c4 29 20 20 20 20 20 20 | :..|.) |
|00000e90| 20 dd 20 f2 45 76 65 6e | 74 5f 4c 6f 61 64 46 69 | . .Even|t_LoadFi|
|00000ea0| 6c 65 28 66 69 6c 65 24 | 2c 74 79 70 65 24 29 0d |le(file$|,type$).|
|00000eb0| 04 ce 0c 20 20 20 20 20 | 20 20 e1 0d 04 d8 0c 20 |... | ..... |
|00000ec0| 20 20 20 20 20 20 3a 0d | 04 e2 2b 20 20 20 20 20 | :.|..+ |
|00000ed0| 20 20 dd 20 f2 45 76 65 | 6e 74 5f 53 61 76 65 46 | . .Eve|nt_SaveF|
|00000ee0| 69 6c 65 28 66 69 6c 65 | 24 2c 77 69 6e 64 6f 77 |ile(file|$,window|
|00000ef0| 25 29 0d 04 ec 19 20 20 | 20 20 20 20 20 20 20 c8 |%).... | .|
|00000f00| 8e 20 77 69 6e 64 6f 77 | 25 20 ca 0d 04 f6 34 20 |. window|% ....4 |
|00000f10| 20 20 20 20 20 20 20 20 | 20 20 c9 20 73 61 76 65 | | . save|
|00000f20| 61 73 5f 57 69 6e 64 6f | 77 25 20 20 20 20 20 20 |as_Windo|w% |
|00000f30| 20 3a 20 f2 73 61 76 65 | 28 66 69 6c 65 24 29 0d | : .save|(file$).|
|00000f40| 05 00 0e 20 20 20 20 20 | 20 20 20 20 cb 0d 05 0a |... | ....|
|00000f50| 0c 20 20 20 20 20 20 20 | e1 0d 05 14 0c 20 20 20 |. |..... |
|00000f60| 20 20 20 20 3a 0d 05 1e | 17 20 20 20 20 20 20 20 | :...|. |
|00000f70| dd 20 f2 63 61 6c 63 75 | 6c 61 74 65 0d 05 28 11 |. .calcu|late..(.|
|00000f80| 20 20 20 20 20 20 20 20 | 64 65 63 3d 30 0d 05 32 | |dec=0..2|
|00000f90| 31 20 20 20 20 20 20 20 | 20 61 24 3d a4 57 69 6d |1 | a$=.Wim|
|00000fa0| 70 5f 49 63 6f 6e 54 65 | 78 74 28 46 72 61 63 74 |p_IconTe|xt(Fract|
|00000fb0| 69 6f 6e 5f 57 69 6e 64 | 6f 77 25 2c 33 29 0d 05 |ion_Wind|ow%,3)..|
|00000fc0| 3c 8d 20 20 20 20 20 20 | 20 20 e7 a9 28 61 24 29 |<. | ..(a$)|
|00000fd0| 3d 30 8c f2 57 69 6d 70 | 5f 57 69 6e 64 6f 77 41 |=0..Wimp|_WindowA|
|00000fe0| 6c 65 72 74 28 22 45 72 | 72 6f 72 20 66 72 6f 6d |lert("Er|ror from|
|00000ff0| 20 46 72 61 63 74 69 6f | 6e b2 22 2c 22 59 6f 75 | Fractio|n.","You|
|00001000| 20 6d 75 73 74 20 65 6e | 74 65 72 20 61 20 64 65 | must en|ter a de|
|00001010| 63 69 6d 61 6c 20 69 6e | 74 6f 20 46 72 61 63 74 |cimal in|to Fract|
|00001020| 69 6f 6e b2 20 62 65 66 | 6f 72 65 20 79 6f 75 20 |ion. bef|ore you |
|00001030| 63 61 6e 20 6d 61 6b 65 | 20 61 20 63 61 6c 63 75 |can make| a calcu|
|00001040| 6c 61 74 69 6f 6e 2e 22 | 29 3a e1 0d 05 46 15 20 |lation."|):...F. |
|00001050| 20 20 20 20 20 20 20 64 | 65 63 3d a0 28 61 24 29 | d|ec=.(a$)|
|00001060| 0d 05 50 43 20 20 20 20 | 20 20 20 20 f2 57 69 6d |..PC | .Wim|
|00001070| 70 5f 49 63 6f 6e 50 75 | 74 54 65 78 74 28 46 72 |p_IconPu|tText(Fr|
|00001080| 61 63 74 69 6f 6e 5f 57 | 69 6e 64 6f 77 25 2c 34 |action_W|indow%,4|
|00001090| 2c 22 43 61 6c 63 75 6c | 61 74 69 6e 67 20 2e 2e |,"Calcul|ating ..|
|000010a0| 2e 22 29 0d 05 5a 1a 20 | 20 20 20 20 20 20 20 20 |.")..Z. | |
|000010b0| 6e 75 6d 25 3d 31 3a 64 | 65 6e 25 3d 31 0d 05 64 |num%=1:d|en%=1..d|
|000010c0| 1e 20 20 20 20 20 20 20 | 20 20 20 c8 99 22 48 6f |. | .."Ho|
|000010d0| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 05 6e 10 20 |urglass_|On"..n. |
|000010e0| 20 20 20 20 20 20 20 20 | 20 20 f5 0d 05 78 1e 20 | | ...x. |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 66 72 61 63 3d | | frac=|
|00001100| 6e 75 6d 25 2f 64 65 6e | 25 0d 05 82 29 20 20 20 |num%/den|%...) |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 e7 20 66 72 61 63 | | . frac|
|00001120| 3e 64 65 63 20 8c 20 64 | 65 6e 25 3d 64 65 6e 25 |>dec . d|en%=den%|
|00001130| 2b 31 0d 05 8c 29 20 20 | 20 20 20 20 20 20 20 20 |+1...) | |
|00001140| 20 20 20 e7 20 66 72 61 | 63 3c 64 65 63 20 8c 20 | . fra|c<dec . |
|00001150| 6e 75 6d 25 3d 6e 75 6d | 25 2b 31 0d 05 96 1a 20 |num%=num|%+1.... |
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 fd 20 66 72 61 | | . fra|
|00001170| 63 3d 64 65 63 0d 05 a0 | 20 20 20 20 20 20 20 20 |c=dec...| |
|00001180| 20 20 20 20 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 | .."H|ourglass|
|00001190| 5f 4f 66 66 22 0d 05 aa | 49 20 20 20 20 20 20 20 |_Off"...|I |
|000011a0| 20 20 20 f2 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 | .Wimp|_IconPut|
|000011b0| 54 65 78 74 28 46 72 61 | 63 74 69 6f 6e 5f 57 69 |Text(Fra|ction_Wi|
|000011c0| 6e 64 6f 77 25 2c 34 2c | 22 22 2b c3 6e 75 6d 25 |ndow%,4,|""+.num%|
|000011d0| 2b 22 2f 22 2b c3 64 65 | 6e 25 2b 22 22 29 0d 05 |+"/"+.de|n%+"")..|
|000011e0| b4 0d 20 20 20 20 20 20 | 20 20 e1 0d 05 be 0d 20 |.. | ..... |
|000011f0| 20 20 20 20 20 20 20 3a | 0d 05 c8 1a 20 20 20 20 | :|.... |
|00001200| 20 20 20 20 dd 20 f2 73 | 61 76 65 28 66 69 6c 65 | . .s|ave(file|
|00001210| 24 29 0d 05 d2 32 20 20 | 20 20 20 20 20 20 20 61 |$)...2 | a|
|00001220| 24 3d a4 57 69 6d 70 5f | 49 63 6f 6e 54 65 78 74 |$=.Wimp_|IconText|
|00001230| 28 46 72 61 63 74 69 6f | 6e 5f 57 69 6e 64 6f 77 |(Fractio|n_Window|
|00001240| 25 2c 33 29 0d 05 dc 32 | 20 20 20 20 20 20 20 20 |%,3)...2| |
|00001250| 20 62 24 3d a4 57 69 6d | 70 5f 49 63 6f 6e 54 65 | b$=.Wim|p_IconTe|
|00001260| 78 74 28 46 72 61 63 74 | 69 6f 6e 5f 57 69 6e 64 |xt(Fract|ion_Wind|
|00001270| 6f 77 25 2c 34 29 0d 05 | e6 8c 20 20 20 20 20 20 |ow%,4)..|.. |
|00001280| 20 20 20 e7 a9 28 61 24 | 29 3d 30 8c f2 57 69 6d | ..(a$|)=0..Wim|
|00001290| 70 5f 57 69 6e 64 6f 77 | 41 6c 65 72 74 28 22 45 |p_Window|Alert("E|
|000012a0| 72 72 6f 72 20 66 72 6f | 6d 20 46 72 61 63 74 69 |rror fro|m Fracti|
|000012b0| 6f 6e b2 22 2c 22 59 6f | 75 20 6d 75 73 74 20 68 |on.","Yo|u must h|
|000012c0| 61 76 65 20 6d 61 64 65 | 20 61 20 63 61 6c 63 75 |ave made| a calcu|
|000012d0| 6c 61 74 69 6f 6e 20 62 | 65 66 6f 72 65 20 79 6f |lation b|efore yo|
|000012e0| 75 20 63 61 6e 20 73 61 | 76 65 20 69 74 2e 22 29 |u can sa|ve it.")|
|000012f0| 3a f2 57 69 6d 70 5f 4d | 65 6e 75 43 6c 6f 73 65 |:.Wimp_M|enuClose|
|00001300| 3a e1 0d 05 f0 b6 20 20 | 20 20 20 20 20 20 20 e7 |:..... | .|
|00001310| a9 28 62 24 29 3d 30 8c | f2 57 69 6d 70 5f 57 69 |.(b$)=0.|.Wimp_Wi|
|00001320| 6e 64 6f 77 41 6c 65 72 | 74 28 22 45 72 72 6f 72 |ndowAler|t("Error|
|00001330| 20 66 72 6f 6d 20 46 72 | 61 63 74 69 6f 6e b2 22 | from Fr|action."|
|00001340| 2c 22 43 6c 69 63 6b 20 | 6f 6e 20 74 68 65 20 4f |,"Click |on the O|
|00001350| 4b 20 62 75 74 74 6f 6e | 20 69 6e 73 69 64 65 20 |K button| inside |
|00001360| 74 68 69 73 20 77 69 6e | 64 6f 77 20 61 6e 64 20 |this win|dow and |
|00001370| 74 68 65 6e 20 74 72 79 | 20 61 67 61 69 6e 20 77 |then try| again w|
|00001380| 68 65 6e 20 49 20 68 61 | 76 65 20 66 69 6e 69 73 |hen I ha|ve finis|
|00001390| 68 65 64 20 74 68 65 20 | 63 61 6c 63 75 6c 61 74 |hed the |calculat|
|000013a0| 69 6f 6e 2e 22 29 3a f2 | 57 69 6d 70 5f 4d 65 6e |ion."):.|Wimp_Men|
|000013b0| 75 43 6c 6f 73 65 3a e1 | 0d 05 fa 48 20 20 20 20 |uClose:.|...H |
|000013c0| 20 20 20 20 20 f4 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d | . =|========|
|000013d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000013e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000013f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001400| 0d 06 04 0e 20 20 20 20 | 20 20 20 20 20 f4 0d 06 |.... | ...|
|00001410| 0e 45 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.E | |
|00001420| 20 20 20 20 20 68 65 61 | 64 65 72 24 3d 22 44 65 | hea|der$="De|
|00001430| 63 69 6d 61 6c 20 74 6f | 20 46 72 61 63 74 69 6f |cimal to| Fractio|
|00001440| 6e 20 63 6f 6e 76 65 72 | 73 69 6f 6e 20 66 69 6c |n conver|sion fil|
|00001450| 65 2e 22 0d 06 18 22 20 | 20 20 20 20 20 20 20 20 |e."..." | |
|00001460| 20 20 20 20 20 20 20 20 | 20 20 20 73 70 61 63 65 | | space|
|00001470| 24 3d 22 20 22 0d 06 22 | 2f 20 20 20 20 20 20 20 |$=" ".."|/ |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 64 65 63 69 6d | | decim|
|00001490| 61 6c 24 3d 22 44 65 63 | 69 6d 61 6c 20 20 20 3d |al$="Dec|imal =|
|000014a0| 20 20 20 22 0d 06 2c 2f | 20 20 20 20 20 20 20 20 | "..,/| |
|000014b0| 20 20 20 20 20 20 20 20 | 20 66 72 61 63 74 69 6f | | fractio|
|000014c0| 6e 24 3d 22 46 72 61 63 | 74 69 6f 6e 20 20 3d 20 |n$="Frac|tion = |
|000014d0| 20 20 22 0d 06 36 34 20 | 20 20 20 20 20 20 20 20 | "..64 | |
|000014e0| 20 20 20 20 20 20 20 65 | 6e 64 72 65 73 75 6c 74 | e|ndresult|
|000014f0| 24 3d 22 22 2b c3 6e 75 | 6d 25 2b 22 2f 22 2b c3 |$=""+.nu|m%+"/"+.|
|00001500| 64 65 6e 25 2b 22 22 0d | 06 40 23 20 20 20 20 20 |den%+"".|.@# |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 66 69 6c | | fil|
|00001520| 65 3d ae 28 66 69 6c 65 | 24 29 0d 06 4a 25 20 20 |e=.(file|$)..J% |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001540| 20 d5 23 66 69 6c 65 2c | 68 65 61 64 65 72 24 0d | .#file,|header$.|
|00001550| 06 54 24 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.T$ | |
|00001560| 20 20 20 20 20 20 d5 23 | 66 69 6c 65 2c 73 70 61 | .#|file,spa|
|00001570| 63 65 24 0d 06 5e 27 20 | 20 20 20 20 20 20 20 20 |ce$..^' | |
|00001580| 20 20 20 20 20 20 20 20 | 20 20 d5 23 66 69 6c 65 | | .#file|
|00001590| 2c 64 65 63 69 6d 61 6c | 24 3b 0d 06 68 22 20 20 |,decimal|$;..h" |
|000015a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015b0| 20 d5 23 66 69 6c 65 2c | c3 64 65 63 0d 06 72 28 | .#file,|.dec..r(|
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015d0| 20 20 20 d5 23 66 69 6c | 65 2c 66 72 61 63 74 69 | .#fil|e,fracti|
|000015e0| 6f 6e 24 3b 0d 06 7c 28 | 20 20 20 20 20 20 20 20 |on$;..|(| |
|000015f0| 20 20 20 20 20 20 20 20 | 20 20 20 d5 23 66 69 6c | | .#fil|
|00001600| 65 2c 65 6e 64 72 65 73 | 75 6c 74 24 0d 06 86 1c |e,endres|ult$....|
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001620| 20 20 d9 23 66 69 6c 65 | 0d 06 90 2d 20 20 20 20 | .#file|...- |
|00001630| 20 20 20 20 20 20 20 20 | 20 20 20 20 ff 22 53 65 | | ."Se|
|00001640| 74 54 79 70 65 20 22 2b | 66 69 6c 65 24 2b 22 20 |tType "+|file$+" |
|00001650| 54 45 58 54 22 0d 06 9a | 20 20 20 20 20 20 20 20 |TEXT"...| |
|00001660| 20 20 20 20 20 20 f2 57 | 69 6d 70 5f 4d 65 6e 75 | .W|imp_Menu|
|00001670| 43 6c 6f 73 65 0d 06 a4 | 0f 20 20 20 20 20 20 20 |Close...|. |
|00001680| 20 20 20 e1 0d 06 ae 04 | 0d 06 b8 04 0d ff | .....|...... |
+--------+-------------------------+-------------------------+--------+--------+
